#!/usr/bin/perl

if (@ARGV > 1) {

    my $dev = $ARGV[1];
    $file = '/etc/dat/sg_inq.dat';
    open FILE, $file or die "No file\n";
    while (<FILE>) {
        if (/^$dev /) {print $_; last;}
   }
    close FILE;
}
